
; Define a procedure that takes 3 numbers as arguments and returns the sum
; of the squares of the two larger numbers


(define (lower a b c)
  (cond ((and (<= a b) (<= a c)) a)
	((and (<= b c) (<= b a)) b)
	(else c)))


(define (sum-sqrt-large a b c)
  (define l (lower a b c))

  (cond ((= a l)
	 (define x b)
	 (define y c))
	((= b l)
	 (define x a)
	 (define y c))
	(else ((define x a)
	       (define y b))))
  (+ (sqrt x) (sqrt y)))

  

